home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTFileProperties.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  3.6 KB  |  91 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTFileProperties.pas' rev: 3.00
  6.  
  7. #ifndef AHMTFilePropertiesHPP
  8. #define AHMTFilePropertiesHPP
  9. #include <AHMSystem.hpp>
  10. #include <ShellAPI.hpp>
  11. #include <Classes.hpp>
  12. #include <Messages.hpp>
  13. #include <SysUtils.hpp>
  14. #include <Windows.hpp>
  15. #include <SysInit.hpp>
  16. #include <System.hpp>
  17.  
  18. //-- user supplied -----------------------------------------------------------
  19.  
  20. namespace Ahmtfileproperties
  21. {
  22. //-- type declarations -------------------------------------------------------
  23. enum TFileAttr { ftReadOnly, ftHidden, ftSystem, ftVolumeID, ftDirectory, ftArchive, ftNormal };
  24.  
  25. typedef Set<TFileAttr, ftReadOnly, ftNormal>  TFileType;
  26.  
  27. class DELPHICLASS TAHMFileProperties;
  28. class PASCALIMPLEMENTATION TAHMFileProperties : public Ahmsystem::TAHMSystemsComponent 
  29. {
  30.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  31.     
  32. private:
  33.     TFileType FFileAttributes;
  34.     System::AnsiString FFileAttrShort;
  35.     System::AnsiString FFileExt;
  36.     System::AnsiString FFilePath;
  37.     System::AnsiString FFilename;
  38.     System::AnsiString FFilenameExt;
  39.     System::AnsiString FFilenameAlone;
  40.     System::TDateTime FFileDateTime;
  41.     System::AnsiString FFileDate;
  42.     System::AnsiString FFileTime;
  43.     int FFileSize;
  44.     void __fastcall SeTFileProperties(TFileType aValue);
  45.     void __fastcall SetFileAttrShort(System::AnsiString aValue);
  46.     void __fastcall SetFilename(System::AnsiString aValue);
  47.     void __fastcall SetFilenameAlone(System::AnsiString aValue);
  48.     void __fastcall SetFilenameExt(System::AnsiString aValue);
  49.     void __fastcall SetFileExt(System::AnsiString aValue);
  50.     void __fastcall SetFilePath(System::AnsiString aValue);
  51.     void __fastcall SetFileDateTime(System::AnsiString aValue, bool mode);
  52.     void __fastcall SetFileDate(System::AnsiString aValue);
  53.     void __fastcall SetFileTime(System::AnsiString aValue);
  54.     void __fastcall SetFileSize(int aValue);
  55.     TFileType __fastcall GeTFileProperties(void);
  56.     int __fastcall GetFileSize(const System::AnsiString filename);
  57.     void __fastcall RefreshState(void);
  58.     
  59. __published:
  60.     __property System::AnsiString Date = {read=FFileDate, write=SetFileDate, stored=false};
  61.     __property System::AnsiString Time = {read=FFileTime, write=SetFileTime, stored=false};
  62.     __property System::AnsiString Extension = {read=FFileExt, write=SetFileExt, stored=false};
  63.     __property System::AnsiString Path = {read=FFilePath, write=SetFilePath, stored=false};
  64.     __property System::AnsiString NameAndExtension = {read=FFilenameExt, write=SetFilenameExt, stored=false
  65.         };
  66.     __property System::AnsiString NameOnly = {read=FFilenameAlone, write=SetFilenameAlone, stored=false
  67.         };
  68.     __property System::AnsiString Filename = {read=FFilename, write=SetFilename, stored=false};
  69.     __property TFileType Attributes = {read=FFileAttributes, write=SeTFileProperties, stored=false, nodefault
  70.         };
  71.     __property System::AnsiString AttributesShort = {read=FFileAttrShort, write=SetFileAttrShort, stored=false
  72.         };
  73.     __property int Size = {read=FFileSize, write=SetFileSize, stored=false, nodefault};
  74. public:
  75.     /* TAHMSystemsComponent.Create */ __fastcall virtual TAHMFileProperties(Classes::TComponent* AOwner
  76.         ) : Ahmsystem::TAHMSystemsComponent(AOwner) { }
  77.     
  78. public:
  79.     /* TComponent.Destroy */ __fastcall virtual ~TAHMFileProperties(void) { }
  80.     
  81. };
  82.  
  83. //-- var, const, procedure ---------------------------------------------------
  84.  
  85. }    /* namespace Ahmtfileproperties */
  86. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  87. using namespace Ahmtfileproperties;
  88. #endif
  89. //-- end unit ----------------------------------------------------------------
  90. #endif    // AHMTFileProperties
  91.